#lang rosetta-racket


(require "shape-cloud.rkt")

(provide shape-cloud-sphere-example
         shape-cloud-box-example
         shape-cloud-box-normal-example)


(define (shape-cloud-sphere-example)
  (shape-cloud 4 5 5 600 (λ (r _) (sphere r))))

(define (shape-cloud-box-example)
  (shape-cloud 4 5 5 600 (λ (r _) (box r r r))))

(define (shape-cloud-box-normal-example)
  (shape-cloud 4 5 5 600 (λ (r n) (box-n r r r n))))